5 IFCH=2THEN30
7 IFCH=1THEN130
10 GOSUB61000:POKE53281,0:POKE53280,0:PRINT"    PLEASE WAIT:LOADING CHARACTERS"
20 CH=1:LOAD"SPH. CHAR.",8,1
30 POKE56,128:CLR
40 POKE53265,11:POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1
50 PRINT"[147]":POKE648,128:GOSUB61000:POKE53265,27:POKE53272,4
70 PRINT"        PLEASE WAIT:LOADING GAME        "
90 REM POKE147,0:SYS57812"COLORIZER",8,1:SYS62631
95 PRINT"[144]LOAD"CHR$(34)"SPHEROID"CHR$(34)",8          [145][145][145]"
110 POKE198,5:POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13
120 END
130 CH=2:PRINT" PLEASE WAIT:LOADING MACHINE LANGUAGE "
140 LOAD "SPHEROID.O",8,1
150 REMOPEN 15,8,15,"S0:SPH. BOOT":CLOSE15:SAVE"SPH. BOOT",8:RUN
61000 PRINT"[147]":POKE214,15:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
61130 FORI=1TO3:PRINT"                                      ":NEXT
61150 PRINT"        PUBLISHED ON LOADSTAR #59     "
61160 PRINT"      SUBSCRIPTIONS 1-800-831-2694    "
61170 PRINT"     CHANGING THIS NOTICE IS ILLEGAL  "
61180 PRINT"                                      "
61190 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
61200 AU$="SPHEROID":POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
61210 AU$="BY JOHN HARRIS  (C) 1989":POKE214,18:PRINTCHR$(142)""
61220 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":POKE53265,27:RETURN